home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / usemall.zip / MSGUTIL.BAS < prev    next >
BASIC Source File  |  1988-02-23  |  193b  |  14 lines
  1. open "messages" for random as #1 len=128
  2. open "msgs" for random as #2 len=128
  3. field #1, 128 as l$
  4. field #2, 128 as m$
  5.  
  6. for i% = 1 to 10
  7.  
  8. get #1, i%
  9. lset m$=l$
  10. put #2, i%
  11. next i%
  12.  
  13.  
  14.